home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / qwatch / global.bas < prev    next >
BASIC Source File  |  1995-05-09  |  2KB  |  55 lines
  1. '*---------------------------------------------------------------*
  2. 'define the LAN Manager server enumeration function to the program
  3. '*---------------------------------------------------------------*
  4. Declare Function NetServerEnum2 Lib "NetAPI.dll" (ByVal szServer As String, ByVal nLevel As Integer, ByVal szServers As String, ByVal nSize As Integer, nEntries As Integer, nTotal As Integer, ByVal lTypes As Long, ByVal szDomain As String) As Integer
  5.  
  6. '*-----------------------------------------------------------------------*
  7. 'construct return structure for the LAN Manager share enumeration function
  8. '*-----------------------------------------------------------------------*
  9. Type Share_Info
  10.     szName As String * 13
  11.     szFill1 As String * 1
  12.     nType As Integer
  13.     szFill2 As String * 10
  14.     lpPath As Long
  15.     szFill3 As String * 10
  16. End Type
  17.  
  18. '*--------------------------------------------------------------*
  19. 'define the LAN Manager share enumeration function to the program
  20. '*--------------------------------------------------------------*
  21. Declare Function NetShareEnum Lib "NetAPI.dll" (ByVal szServer As String, ByVal nLevel As Integer, Share As Share_Info, ByVal nSize As Integer, nEntries As Integer, nTotal As Integer) As Integer
  22.  
  23. '*-----------------------------------------------------------------------------*
  24. 'construct return structure for the Lan Manager print queue information function
  25. '*-----------------------------------------------------------------------------*
  26. Type PRQJINFO
  27.     szName As String * 13
  28.     szFill1 As String * 29
  29.     nJobs As Integer
  30.     szFill2 As String * 53
  31.     nStatus As Integer
  32.     szFill3 As String * 16
  33. End Type
  34.  
  35. '*--------------------------------------------------------------------*
  36. 'define the Lan Manager print queue information function to the program
  37. '*--------------------------------------------------------------------*
  38. Declare Function DosPrintQGetInfo Lib "PMSPL.dll" (ByVal szServer As String, ByVal lpPath As Long, ByVal nLevel As Integer, Queue As PRQJINFO, ByVal nSize As Integer, nNeeded As Integer) As Integer
  39.  
  40. '*--------------------------------------------------------------*
  41. 'setup a global variable for monitoring the current warning state
  42.     '0 = Green
  43.     '1 = Yellow
  44.     '2 = Red
  45. '*--------------------------------------------------------------*
  46. Global nWarning As Integer
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.